SET COLO TO BG+/B,W+/N
set proc to sospro
set proc to boxproc
STORE ' ' TO AEANAME,AEAADDR,AEACITY,AEACOUN,AEACURR
STORE .F. TO AEAHEAL,AEADECI
do start
PL1=0
DO WHILE pl1=0
   do addressa
   do addrtitl with ' S Y S T E M    R E P O R T S '
   SET COLO TO W/B
   @ 10, 3 CLEA TO 23,78
   SET COLO TO W+/N
   @ 11, 5 CLEA TO 23,39
   SET COLO TO N/BG,W+/N
   @ 10, 3 CLEA TO 22,37
   @ 10, 3 to 22,37 double
   @ 12, 5 PROMPT "D .. DAILY REPORTS   "
   @ 14, 5 PROMPT "M .. MONTHLY REPORTS "
*   @ 16, 5 prompt "S .. SPECIAL REPORTS "
   @ 16, 5 prompt "P .. PRINT PRICE LIST"
   @ 20, 5 PROMPT "X .. EXIT PROGRAMME  "
   MENU TO PL1
   SET COLO TO W+/B
   IF LAST()=27
       CLEAR
       RETURN
   ENDIF
   DO CASE
      CASE PL1=1
         DO REPOD
      CASE PL1=2
         DO REPOM
      CASE PL1=3
*         DO REPOS
*      CASE PL1=4
         DO INPA
      CASE PL1=4 .or. lastkey()=27
         clos all
         clea
         RETURN
   ENDCASE
   pl1=0
ENDDO

